home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / aros / source / exec / lists / src / addhead.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-07-16  |  1.5 KB  |  77 lines
  1. /*
  2.     (C) 1995 AROS - The Amiga Replacement OS
  3.     $Id: addhead.c 1.1 1995/11/05 22:49:09 digulla Exp digulla $
  4.     $Log: addhead.c $
  5.  * Revision 1.1  1995/11/05  22:49:09  digulla
  6.  * Initial revision
  7.  *
  8.     Desc:
  9.     Lang: english
  10. */
  11. #include "exec_intern.h"
  12.  
  13. /*****************************************************************************
  14.  
  15.     NAME */
  16.     #include <exec/lists.h>
  17.     #include <clib/exec_protos.h>
  18.  
  19.     __AROS_LH2I(void, AddHead,
  20.  
  21. /*  SYNOPSIS */
  22.     __AROS_LA(struct List *, list, A0),
  23.     __AROS_LA(struct Node *, node, A1),
  24.  
  25. /*  LOCATION */
  26.     struct SysBase *, SysBase, 40, Exec)
  27.  
  28. /*  FUNCTION
  29.     Insert Node node as the first node of the list.
  30.  
  31.     INPUTS
  32.     list - The list to insert the node into
  33.     node - This node is to be inserted
  34.  
  35.     RESULT
  36.  
  37.     NOTES
  38.  
  39.     EXAMPLE
  40.     struct List * list;
  41.     struct Node * pred;
  42.  
  43.     // Insert Node at top
  44.     AddHead (list, node);
  45.  
  46.     BUGS
  47.  
  48.     SEE ALSO
  49.  
  50.     INTERNALS
  51.  
  52.     HISTORY
  53.     26-08-95    digulla created after EXEC-Routine
  54.     26-10-95    digulla adjusted to new calling scheme
  55.  
  56. ******************************************************************************/
  57. {
  58.     assert (node);
  59.     assert (list);
  60.  
  61.     /*
  62.     Make the node point to the old first node in the list and to the
  63.     head of the list.
  64.     */
  65.     node->ln_Succ       = list->lh_Head;
  66.     node->ln_Pred       = (struct Node *)&list->lh_Head;
  67.  
  68.     /*
  69.     New we come before the old first node which must now point to us
  70.     and the same applies to the pointer to-the-first-node in the
  71.     head of the list.
  72.     */
  73.     list->lh_Head->ln_Pred = node;
  74.     list->lh_Head       = node;
  75. } /* AddHead */
  76.  
  77.